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A "EDTSSCRDELETE = delete Lines from the screen 

MODULE EDTSSCRDELETE ( yn tors from the scre 

gPEnt = *v04-000' ! File: SCRDELETE. BLI "Edit: JBS1014 


BEGIN 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS fe ‘necte fe cyeni ace UNDER A LICENSE AND MAY BE USED AND COPIED 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!# OTHER PERSON. NO TITLE [TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
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ie TRANSFERRED. : 
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*® 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
in ae okat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: EDT -=- The DEC Standard Editor 


i ABSTRACT: 


Soooooo 


This module updates the screen when a Line terminator 
has been deleted. 
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; 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
i MODIFIED BY: 

1-001 - Original. DJS 12-Feb-1981. This module was created by 
' 

1 
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i] 

] 

i] 

i] 
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extracting the routine EDT$$SC polly from module SCREEN. 
regularize headers. JBS 15-Mar-1 

Update EDT$$G_LN_ONSCR pate 198F 10-Jul-1981 
Improve the comments. 24- 
Change boundary check to patch € 0. SMB 8-Mar-1982 
Check a new flag for availabilit aa Setrattin Pegions 38S 31-Aug-1982 
Modify to use new taste update logic 82 
Modi ty to use new 48 bit macros. sis b1-oct=1 | 
Remo © EbIaser Sch to L_CUR 4s SMB 04-0ct-1982 
Change +4 $G6_SCR_CHGD™ to eDts G_ sce R-REBUILD, BS 09-0ct-1982 
Clean u e Teft over globals. ~ 
Update EUR. SCRLN and remove ger SREBUILD: Se 13-0ct-1982 
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; =91) = Don’ . =Oct-1 
HE BR | RR: tetera reotalitict a bated Oe 
; 61 =" 


EDISSCRDELETE 
; § 
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EDTSSCROELETE = delete Lines from the screen 18- 
Declarations 1 
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tt et a ts es a a tt a a tt 


XSBTTL ‘Declarations’ 
TABLE’ OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 


EDTSS$SC_DELLN : NOVALUE; 


INCLUDE FILES: 


REQUIRE “EDTSRC:EDTREQ'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE : 
NONE 

EXTERNAL REFERENCES: 
In the routine 


14 
Sep-1986 12:26:3 


AX-11 Bliss-32 Ve «Oe rag Page 3 
EDT. SRCISCRDELETE.BLI; ) 
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EDTSSCRDELETE EDTSSCRDELETE = delete Lines from the screen 1b-$0 -1984 AX-11 Bliss-32 V4.0-74 P 4 
704-000 EDTSSSC_DELLN = delete Lines from the screen 14-Sep-1984 93: 343 EDT. sre SCRDELETE.BLI; 4 nay (3) ) 
ZSBTTL “EDTSSSC_DELLN = delete Lines from the screen’ 
66 GLOBAL ROUTINE EDTSS$SC_DELLN ! Delete Lines from the screen 
: NOVALUE = 


14 
} FUNCTIONAL DESCRIPTION: 


LISI 


WO OENOULS WN —OOW 


The screen record pointers are updated and the Line is marked 
for delete. 


i FORMAL PARAMETERS: 
NONE 
i IMPLICIT INPUTS: 


COoo NS 


Ptottattattttatatatats 


IF (.EDTSS$A_SCR_BUF NEQA .EDTSSA_CUR_BUF) THEN RETURN; 
EDTSSMRK_LNCHG (SCR_EDIT_DELLN, 0); 

IF (CMPLNO (EDTS$$A_CUR_BUF CTBCB_CUR_LINJ, EDTS$$L_CUR_SCRLN) LSS 0) ! 
SUBLINE (NUMBER_ONE, EDTSSL_CUR_SCRLN); 


} This routine is called when a Line terminator has been deleted. 
! 
i 
! 
4 
' 
' 
84 ; EDTSS$A_CUR_BUF 
5 EDISSAy SCR_BUF 
8? i IMPLICIT OUTPUTS: 
0689 1 | EDTS$L_CUR_SCRLN 
690 ' 
3 ROUTINE VALUE: 
0638 i NONE 
Bede : 
695 ! SIDE EFFECTS: 
06 $ : 
069 } NONE 
99 low 
0700 
70 
070 aii" ROUTINE 
708 EDTSSMRK_LNCHG : NOVALUE; ! Track Line updates 
7 EXTER -~ 
70 EDT ot. _CUR_SCRLN : LN BLOCK, ' Current screen record 
70 EDT$$A_CUR_B EF TBCB_BLOCK, ' The current buffer tbcb. 
4 H EDTSS$A_SCR_BUF EF TBCB_BLOCK; ! Current screen buffer 
LOCAL 
VALUE1, 
VALUE2; 
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SN 
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; Routine Size: 89 bytes, Routine Base: _EDTSCODE + 0000 


1 
1 !<BLF/PAGE> 
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EDTSSCRDELETE EDTSSCRDELETE = delete Lines from the screen 1b-Se 1984 01:31:49 AX-11 Bliss-32 V4.0-74 Page 5 
04-000 EDTSSSC_DELLN = delete Lines from the screen 12=868-1 38 93; 4:23 LED. sre SCRDELETE.BLI; 7 (3) 
3 55 0723 1 END; ! of routine EDTS$SC_DELLN | ; 
-TITLE EDTSSCROELETE EDTSSCRDELETE - delete Lines from | : 
the screen : 
IDENT \v04-000\ ; 
-EXTRN EDTSSMRK_LNCHG, EDTSS$L_CUR_SCRLN : 
.EXTRN EDTSS$A_COR_BUF, EDTSS$A_SCR_BUF : 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 ° 
000C 00000 ENTRY EDTSSSC_DELLN Saye R2,R3 ; 0668 ; 
53 990000006 0 9E 0000 MOVAB EDTS$A_CUR_BUF, R : : 
¢ 00000006 9E 000 MOVAB LOW_2, 3 ° 
63 000000006 D1 gi CMPL GDTSSA_SCR_BUF, EDTSS$A_CUR_BUF : 0715 : 
F 12 0001 BNEQ $ $ ° 
7e 4 7D 00019 MOVO #4, =(SP) ; 0717 : 
000000006 09 2 FB Ba) CALL #2, EDTSSMRK_LNCHG 3 : 
0 2 ¢] ADDL #6, EDTSSA_COR_BUF, RO ; 0719 : 
1 04 A2 3¢ 000 MOVZWL HIGH 2, R1 : ; 
51 04 AO B61 00028 CMP 4(ROJ, R1 5 ‘ 
OA 1F 0002F BLSSU_'1$ : : 
13 ie 0031 N 3$ 3 ; 
51 62 00 00033 MOVL LOW 2, R1 ; : 
51 60 Di 000 CMPL (ROY, R1 é ; 
05 1€ 00039 BGEQU§ 2$ $ ° 
50 01 CE Onte 1$ MNEGL #1, RO 3 ; 
9 11 000 ‘ BRB 4$ 3 ; 
4 12 00040 2$ BNEQ 3$ ; ; 
9 D4 00042 CLRL RO 3 ; 
03 11 00044 BRB 4$ 3 : 
50 4 00 Bes 3$: MOVL #1, RO 3 : 
D 18 00049 4$: BGEQ 5$ F : 
50 62 44 Spode MOVL FIRST_WORD, SAVE : 0721 : 
62 07 0004 DECL FIRST=WOR : : 
50 6 D1 Bape CMPL FIRST_WORD, SAVE 3 é 
0 8 005 BLEQU 5$ 3 : 
04 A2 B67 0005 DECW NEXT_WORD 3 : 
04 00058 5$: ET : 0723 : 
; 
: 
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EDTSSCRDELETE  EDTSSCRDOELETE = delete Lines from the screen 1b-Se 1984 01:31:4 AX-11 Bliss-32 V4.0-74 Pa 6 
704-000 EDTS$SC DELL = delete Lines from the screen 12-800 382 9333433 YEDT SRCISCROELETE.BLI: 5 (4) 
: 135 O73? } END ! of module EDTSSCRDELETE 
: 135 728 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
:  EDTSCODE 89 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
eee foe ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 33 8 40 00:00.2 
; _$255$0UA28:LEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
: COMMAND QUALIFIERS 
; 4S ema pment lett hamahttatamaata a catattinn teatime iiacintantnaaat tinal MSRC$:SCRDELETE.BLI/UPDATE=(ENHS:S 
3; Size: 89 code + 0 data bytes 
: Time: 00:11.6 
; Elapsed 714. 
3; Lines/CPU Min: 775 
3 Lexemes/CPU-Min: 13109 
: ponery Used: 85 pages 
; Compilation Complete 


~ DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 


0138 Vaxzuns va _o 


